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BY 
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DIRECTOR 
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AT  THE  ADA  DEBUT  4-5  SEPTEMBER,  1980 
WASHINGTON,  D.C. 

I'm  really  very  happy  to  be  here  today.  I  enjoy  coming  to 
convocations  of  this  type  and  seeing  old  friends,  and  I'm 
especially  glad  to  see  Bill  Whitaker.  I  can  remember  working 
late  at  night  but  I  never  worked  any  later  at  night  at  ARPA  than 
my  colleague  Bill,  when  he  was  in  his  office  working  at  a 
terminal  on  the  various  things  he  had  to  do  as  Chairman  of  the 
High  Order  Language  Working  Group. 

I  asked  Bill  Perry  why  in  the  world  he  wasn't  able  to  be  here 
this  morning  and  he  said,  "Well,  I  have  difficulty  with 
accountants;  I  have  a  hearing  on  the  Capital  Hill  that  I  have  to 
go  to".  Then  he  told  me  a  little  story  related  to  the 
accountant  syndrome.  He  said,  "Do  you  know.  Bob,  about  100  years 
ago  during  the  Civil  War,  when  R&D  was  in  its  infancy  in  the  U.S. 
Army,  the  problem  of  surveillance  was  severe.  The  Army  was 
testing  a  balloon  borne  observation  system  up  northwest  of 
Washington.  A  bright  young  Army  officer  was  the  pilot  of  the 
balloon,  'Areostat',  it  was  called  in  those  days.  He  took  off 
one  afternoon  on  a  test  flight.  These  balloons  are  teathered, 
except  on  this  day  the  teather  broke  loose,  he  drifted  through' 
thunder  clouds  of  great  magnitude  doing  his  best  to  land  in  some 
sort  of  controlled  crash.  He  finally  succeeded,  drifting  down 
and  landing  on  the  White  House  lawn.  It  turns  out  that  Mr. 
Lincoln  at  the  time  was  having  a  Cabinet  meeting.  Seeing  the 
balloon  come  down  and  crashed,  they  ran  out.  The  first  person  to 
arrive  at  the  gondola  of  the  balloon  was  a  very  distinguished 
looking  gentlemen.  The  balloon  pilot  looked  up  and  said  (he  was 
rather  dazed) ,"for  goodness  sake  where  am  I?"  The  gentleman 
answered,  "Why  you're  on  a  green  grassy  lawn,  of  course".  This 
took  the  pilot  by  some  surprise,  and  after  a  few  minutes  of 
absorbing  that  profound  statement,  he  said,"  Are  you  an 
accountant?"  The  fellow  said,  "Why  yes,  how  in  the  world  did 
you  know?"  And  the  pilot  replied,  "Because  the  information  you 
have  given  me  is  perfectly  accurate  but  utterly  useless". 

This  little  story,  I  think,  reflects  Bill's  frustrations  at 
not  being  able  to  be  here  today,  and  I  bring  with  me  today  his 
best  wishes.  He  is  very  much  interested  in  this  program,  as  you 
all  know.  He  is  interested  in  joint  programs  with  NATO,  with  the 
Western  Alliance,  and  he  feels  this  language  is  one  of  the 
successes  that  is  coming  about  in  our  increasing  efforts  at  joint 
programs. 


I  want  to  extend  my  personal  congratulations  and  the 
congratulations  of  Dr.  Perry  to  Jean  Ichbiah  and  the  Ada  Design 
Team  for  a  job  well  done. 

We  at  ARPA  are  very  happy  to  have  been  part  of  the  DoD 
effort  to  develop  this  language.  As  most  of  you  know,  the 
programming  language  modernization  and  convergence  effort  is 
coordinated  by  the  High  Order  Language  Working  Group,  or  HOLWG, 
which  includes  representatives  of  all  three  Services  and  the 
Defense  Agencies.  The  German  and  United  Kingdom  Ministries  of 
Defense  have  sent  liaison  members  to  the  HOLWG.  The  Services 
have  provided  the  money  for  the  Ada  development,  and  full  time 
participation  by  some  of  their  best  people. 

The  Ada  program  has  benefitted  from  international 
cooperation  beginning  with  the  requirements  definition  process, 
and  continuing  throughout  design,  test  and  evaluation.  I  note 
that  at  least  nine  countries  are  represented  in  the  audience 
here  today.  Experts  from  the  U.S.,  United  Kingdom,  Germany, 
France,  and  other  nations  including  Japan  have  contributed  to  the 
design  effort.  By  working  together,  it  is  my  opinion  we  have 
developed  a  much  higher  quality  product  for  our  common  use  than 
any  of  us  could  have  developed.  Juch  cooperative  development 
programs  are  an  effective  way  to  counter  what  we  in  the 
Department  of  Defense  believe  (and  we  believe  it  is  a  mutual 
perception) ,  to  be  a  massive  Warsaw  Pact  investment  strategy 
which  constitutes  a  real  threat  today. 

Achieving  more  effective  armaments  cooperation  within  the 
Western  Alliance  is  a  major  goal  of  this  administration, 
especially  the  Undersecretary  and  the  Secretary  of  Defense.  The 
Ada  language  is  certainly  one  of  the  significant  accomplishments 
in  this  major  thrust. 

Today  I  would  like  to  share  with  you  my  view  of  the 
significance  of  Ada  to  the  Western  Alliance,  highlight  some  of 
the  factors  which  have  made  this  program  a  success,  and  summarize 
DoD's  plans  for  the  Ada  phase-in  period. 

WHAT  IS  THE  SIGNIFICANCE  OF  ADA? 

We  in  this  Alliance  must  take  advantage  of  our  lead  in 
various  technologies,  in  particular  computer  technology,  to 
maintain  the  balance  of  power.  The  Soviets  have  historically 
held  a  quantitative  advantage  in  deployed  weapons.  In  the  past, 
we  have  had  a  qualitative  advantage,  but  that  advantage  is  now 
eroding  in  the  face  of  massive  Eastern  Block  R&D  investments. 


These  challenges  are  formidable.  But  we  have  some  distinct 
advantages  as  well:  we  have  a  superior  technological  base,  we 
have  a  highly  competitive  industry  with  greater  productivity,  and 
a  substantial  industrial  base  necessary  to  capitalize  on  the 
technology  base  investments. 


Our  approach  is  to  expedite  the  development  of  systems  based 
on  technology  in  which  we  lead.  We  have  an  asymmetric  advantage 
which  can  produce  a  distinct  military  advantage.  Two  such 
obvious  technologies  in  the  tech  base  today  in  this  country  and 
all  through  the  west  are  micro  circuit  technology  and  computer 
technology,  which  are,  of  course,  closely  related  and  mutually 
reenforcing . 

Military  systems  of  the  future  will  incorporate  much  more 
flexible  and  intelligent  control  logic.  For  example,  new 
surveillance  systems  will  have  sophisticated  algorithms  for 
detecting,  identifying,  and  locating  targets;  command  and  control 
systems  will  be  able  to  pass  target  information  to  fire  units 
very  rapidly,  essentially  in  real-time.  We  will  have  even  more 
capable  precision  guided  weapons  than  we  have  today.  We  will 
also  be  upgrading  existing  tanks,  aircraft  and  other  weapons  with 
intelligent  digital  control  systems  to  extend  their  useful  life. 

Thus,  the  Ada  program  has  been  an  effort  to  provide  a  high 
quality  common  programming  language  for  these  critically 
important  military  systems  of  the  future. 

Our  goal,  however,  has  gone  beyond  merely  designing  a 
quality  programming  language.  The  usefulness  of  a  language  is 
determined  as  much  by  the  stability  of  its  specification  and  the 
size  of  its  user  population  as  by  its  detailed  technical 
characteristics. 

It  takes  several  years  to  accumulate  a  significant 
collection  of  software  tools  to  enhance  the  productivity  of 
programmers  using  a  language.  Developers  of  applications 
software  cannot  afford  the  time  or  the  money  to  develop  large 
tool  kits,  so  they  are  for  the  most  part  constrained  to  use 
existing  tools.  Quality  tool  kits  are  only  available  for  the 
most  popular  languages. 

Even  in  very  primitive  environments  with  almost  no  tools, 
there  must  be  a  compiler  for  every  high  order  language.  The 
benefits  of  using  proven  compilers  for  applications  developments 
are  especially  compelling.  It  takes  a  while  for  compiler 
implementors  to  refine  their  products,  find  the  most  efficient 
algorithms,  and  eliminate  residual  errors. 

Our  approach  to  training  is  also  greatly  influenced  by  how 
widely  the  programming  language  is  used.  With  a  widely  used 
common  language,  experienced  programmers  are  available  to  work  on 
new  projects.  Hence,  development  projects  do  not  have  to  pay  for 
training  and  for  the  mistakes  which  are  inevitably  made  by 
inexperienced  programmers.  Furthermore,  training  can  be  viewed 
as  a  long  term  investment  in  future  productivity;  since  during 
the  course  of- their  careers,  programmers  will  work  on  a  variety 
of  systems  in  the  common  language. 


The  goal,  then,  is  to  have  a  language  which  is  both  of  high 
technical  quality  and  widely  used.  The  military  has  been  a 
successful  catalyst  for  new  standards  in  the  past,  most  notably 
with  the  COBOL  language  in  the  early  1960's.  In  the  Ada  effort, 
we  have  tried  to  involve  the  widest  possible  community  from 
throughout  the  Western  alliance  so  that  technical  requirements  of 
all  our  real-time  and  large  systems  applications  would  be 
provided  for  in  the  language  design. 

WHAT  ARE  THE  HIGHLIGHTS  OF  THE  ADA  DEVELOPMENT? 

The  Ada  development  has  been  both  a  modernization  and  a 
convergence  effort.  The  research  and  development  community  had 
developed  important  new  software  techniques  in  the  late  60 's  and 
early  70's  which  DoD  project  managers  wanted  to  use.  Among  these 
ideas  were:  structured  programming,  the  ability  for  users  to 
define  their  own  data  types  and  have  compilers  enforce  type 
consistency,  various  high  level  and  structured  approaches  to 
parallel  processing  which  reduced  the  risk  of  deadlocks  and 
improved  system  reliability,  and  the  separation  of  external 
interfaces  from  implementation  details  to  enforce  modularity. 

The  separate  specification  of  external  interfaces  is  especially 
important  for  standard  reusable  software  components. 

In  1975  and  1976,  each  of  the  Services  was  proposing  to 
develop  a  new  proaramming  language  incorporating  these  advances. 
In  discussions  with  our  allies,  we  learned  that  these  pressures 
were  not  unique  to  the  U.S.  The  IFIP  Working  Group  2.4  and  the 
Long-Term  Procedural  Language-Europe  Group,  among  others,  had 
already  begun  the  process  of  consolidating  the  advances  so  that  a 
new  common  and  widely  adopted  standard  language  could  be 
developed . 

Given  the  benefits  from  language  commonality  which  we  just 
discussed,  we  decided  to  establish  a  single  joint  program  to 
develop  a  common  language.  The  U.K.  Ministry  of  Defense  assigned 
a  liaison  officer  to  work  full  time  with  us  in  the  United  States 
formulating  language  requirements. 

We  could  not  afford  the  risk  of  having  this  language 
designed  by  anyone  other  than  the  best  designers  in  the  whole 
world.  Who  that  should  be,  however,  was  not  immediately  obvious. 
There  were  several  strong  candidates. 

The  solution  was  to  hold  an  international  design  competition 
based  on  widely  reviewed  and  agreed  upon  requirements.  Our 
objective  has  been  to  have  the  widest  possible  participation  in 
the  identification  of  requirements  and  the  review  of  interim 
products,  but  to  have  a  single  designer  responsible  for  the 
internal  consistency  and  integrity  of  the  language  design.  As 
you  know,  the  team  headed  by  Jean  Ichbiah,  of  CII  Honeywell  Bull 
in  Paris  in  cooperation  with  the  Honeywell  Systems  and  Research 
Center  in  Minneapolis  won  the  competition. 


The  debut  today  and  tomorrow  marks  the  succesful  completion 
of  extensive  test  and  evaluation  of  the  language  design.  During 
the  past  year,  a  signficant  number  of  applications  algorithms 
have  been  recoded  in  Ada.  We  have  received  more  than  900 
language  issues,  reports  and  comments.  Jean  has  refined  the 
language  based  on  the  results  of  these  inputs,  and  will  be 
presenting  the  proposed  Ada  Standard  in  a  few  minutes. 

HOW  ABOUT  THE  FUTURE 

We  are  now  entering  the  language  phase-in  period.  A  DoD 
joint  project  office  is  being  established  to  maintain  the  Ada 
Standard  and  to  coordinate  service  implementation  and  training 
efforts . 

We  want  to  begin  using  Ada  in  exploratory  development 
applications  as  soon  as  possible.  Hence,  test  compilers  are 
being  developed  for  these  pilot  applications.  New  York 
University  will  deliver  an  interpreter  for  the  complete  Ada 
language  and  submit  it  for  validation  testing  early  in  1981. 
Carneg ie-Mellon  and  Intermetrics  are  working  together  to  deliver 
a  complete  test  compiler  by  the  summer  of  1981. 

The  Army  and  Air  Force  have  already  begun  to  develop 
advanced  development  models  for  Ada  compilers.  The  Army  has 
chosen  SofTech  to  develop  its  compiler,  and  they  have  started 
work.  The  Army  has  a  particularly  pressing  need  to  begin  using 
Ada  to  develop  battlefield  systems,  so  everything  possible  is 
being  done  to  complete  an  implementation  with  code  generators  for 
the  battlefield  computers  by  mid-1982.  Capabilities  of  the 
existing  operating  system  environment  are  being  used  to  expedite 
the  development  of  the  required  minimal  set  of  programming  tools. 

The  Air  Force  effort  aims  to  produce  a  compiler  which  is 
embedded  in  a  self-contained,  vendor  independent,  portable 
environment  in  accordance  with  DoD's  STONEMAN  specification. 

There  will  be  a  competitive  design  phase  involving  two  or  three 
contractors  who  are  being  selected  at  the  present  time.  The 
designs  will  be  delivered  in  Spring  1981  and  the  system  in  1983. 

Both  the  Air  Force  and  Army  compilers  will  be  written  in 
Ada,  and  will  be  delivered  with  the  essential  programming  tools. 
When  the  initial  designs  ar  delivered  to  DoD  in  Spring  1981,  DoD 
will  select  and  specify  stcndard  interfaces  between  the 
environment  and  the  programming  tools.  Contracts  will  then  be 
renegotiated  to  insure  compliance  with  the  interface  standards, 
and  to  achieve  the  maximum  amount  of  practical  commonality 
between  Army  and  Air  Force  efforts. 


J 

4 


The  Navy  is  waiting  for  these  activities  to  stabilize  before 
developing  a  compiler  which  is  unique  to  Navy  systems.  They 
expect  to  make  substantial  use  of  software  developed  by  the  Army 
and  Air  Force. 

Elsewhere,  there  are  a  number  of  compilers  already  under 
development  in  Europe,  Japan,  and  as  proprietary  ventures  by 
industry.  In  particular,  the  German  Ministry  of  Defense,  the 
United  Kingdom  Ministry  of  Defense  and  the  Council  of  the 
European  Communities  have  compiler  procurements  already  underway. 
We  in  DoD  will  coordinate  closely  with  these  efforts. 

At  the  present  time,  we  are  assuming  that  Ada  will  be  used 
in  a  variety  of  diverse  environments,  and  that  our  goal  in 
standardizing  internal  interlaces  for  initial  DoD  compilers  and 
tools  is  simply  to  make  the  most  efficient  use  of  our  development 
resources . 

We  intend  to  establish  policies  which  encourage  the  private 
sector  to  innovate  in  Ada  software  and  in  computer  hardware  to 
run  Ada  programs.  An  important  step  towards  that  end  is  to 
provide  the  stability  necessary  for  private  industry  investment 
and  non-defense  use  of  the  language. 

The  proposed  standard  document  is  being  reviewed  under 
American  National  Standards  Institute  canvass  ballot  procedures, 
and  we  hope  that  there  will  be  an  ANSI  standard  for  Ada  in  the 
near  future.  ANSI  will  be  submitting  the  Ada  standard  to  the 
International  Standards  Organization  to  establish  an 
international  standard  for  the  language. 

We  intend  to  take  a  variety  of  steps  to  encourage  the 
widespread  use  of  Ada.  The  compiler  validation  test  sets  will  be 
available  to  other  governments  and  standards  organizations,  with 
appropriate  safeguards  to  insure  that  the  standard  is  rigidly  and 
uniformly  enforced.  Source  code  and  documentation  for  the 
initial  DoD  developed  compilers  will  be  made  available,  to 
provide  an  early  baseline  capability.  The  contracts  have  been 
written  so  that  DoD  can  give  the  software  to  anyone  in  the  world, 
and  the  recipients  will  be  free  to  use  it  for  commercial  as  well 
as  defense  purposes. 

As  soon  as  possible,  we  would  like  to  begin  competitively 
procuring  Ada  compilers  and  software  tools  as  products,  rather 
than  funding  their  development  on  a  cost  reimbursable  basis.  For 
example,  we  will  be  using  Ada  programs  as  benchmarks  when  buying 
commercial  hardware  so  that  the  performance  competition  is  based 
on  the  combined  performance  of  the  hardware  and  the  compiler. 

The  Ada  compiler  validation  policies  will  allow  Ada  interfaces 
and  special  functions  to  be  implemented  in  hardware,  and  we  will 
encourage  such  hardware  optimizations  for  some  applications. 


These  steps  are  part  of  DoD's  overall  strategy  of  using 
commercial  products  wherever  possible  for  defense,  so  that  we  can 
benefit  from  the  industrial  base  that  I  described  earlier  and  the 
economies  of  scale  associated  with  participating  in  such  a  large 
commercial  market  place. 

CONCLUSION 

sjF 

'  In  summary,  A  would  like  to  emphasize  that  the  Ada  language 
is  extremely  important  to  the  U.S.  Department  of  Defense  and  the 
Western  Alliance.  In  our  opinion,  Ada  will  be  used  to  develop 
our  most  important  systems  in  the  future.  We  expect  Ada  will  be 
widely  used  throughout  the  U.S.  and  the  European  countries  for 
commercial  use  as  well  as  defense  software,  and  that  the 
Department  of  Defense  in  the  U.S.  will  benefit  significantly  from 
the  resulting  availability  of  trained  personnel  and  privately 
developed  software. _ _ 

Dr.  Perry  shares  these  views,  and  very  much  wishes  that  he 
could  be  with  us  today.  He  asked  me  to  emphasize  his  strong 
support  for  this  program  and  his  desire  to  see  Ada  rapidly 
implemented  and  used  throughout  the  Services. 

Thank  you  very  much  ladies  and  gentlemen.  It  is  indeed  a 
pleasure  to  be  with  you  today. 
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•  Relation  to  other  topics 


1 


o 


A  51MPLE  PROGRAM 


with  SlMPLE-lOj 
procedure.  COUNT. yoUR-CHANGE  ts 
use  SIHPLE-IOs 

--  This  pro j ram  reads  6  integers 
--  and  prints  “the  to+al  v/alu.e 

COUNT,  CHANGE, CENTS ,  0OLLAR.S  »  INTE CEfc; 
value  ••  constant  arra^  (  I  ..  C  )  of  l NTCGER  :  = 
C  01,  05,  10,  Z5,  50,  loo); 


CHANGE  0; 
for  N  in  1  ..  6  loop 
GET  (  COUNT)  ; 

CHANGE  CHANGE  +  VALUE  (N)*  COUNT; 
end  loop ; 

i£  CHANGE  »  O  tiven 

PUT(  "NO  CHANGE-  ); 
else 

dollars  :•  change  /  too  *, 

CENTS  :*  CHANGE  mod  loo  ; 

PUT("  OOU.ARS  s  ")•,  PuT(O0LL«RS\ 

PUT  ("  CENTS  •  ");  PUT^CENTS'); 
end,  if; 

end  COUWT.y  OUR  .CHANGE  ; 


z 


TEXTUAL  STRUCTURE 


with  SIMPLE. 10^ 

>fQCg dure  COUUT.youR -CH«W6E  CS 

•  •  • 

begin 

p-or  . .  .  loop 
•  •  • 

end  loop; 

if  .. .  Ebgn 

•  •  • 

else 

»  »  • 

end  if } 

•  •  • 

end  couwT.youR.Citftwce  i 


t. 


J 


EXECUTION  of  0  PROCEDURE 


procedure  Couwr.YouR.CHawoe  is 


COUNTS,  CHANGE, 

CENTS, DOLLARS  :  MJTEfrfA; 


elaborate 


declarative 

part 


tejin 


CHANGE  :*  0  ; 


CewTS  •*  CHRU6-6  toot  too ; 


eocecute 

sequence  of 
statemen  ts 


end  Count. voufl.CHftWte  • 


elaborate  declarations  . 

^(Ve  an  existence  to  corresponding  objects 


a  a 


VISIBILITY  «r\4  SEPARATE  CoflPlLATlOW 

a  main  program  ? 
wjjb  SlMPi-e.lOi 

procedure  Count.  youR .  chalice  is 

USE  SinPLE.IOj 

COUNT^HAMte  , 

C6  WT5/ Dollars  :  INTEGER  ; 

begvn 

CHANGE  :«  0  ; 

(rET  (  COUNT) ; 

PUT £  "  WO  CM«NCrEH); 

Cfwrs  :*  CHAW&e  mod  100; 
end  COUNT. YOUR.  CHANGE; 


—  predefined  identifiers 

--  lOipnl cfiffs  from  the  pac^io^e 

—  local  identifiers 


(Z 
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flDIWTS  RAISED  %y  THE  EXAMPLE 


DECLARATIVE  PART 

object  declarations 
t<jp«s 

tjpe  declafaH  on s 

sequence  op  statements 

expressions 

s+aterwen+s 


PACKAGES  and  COMPILATION/  UNITS 
VISl  8  ILITY 

Poc'nfs  r\of  raised 

TASKING,  6£M6(ilC  UNI  ITS  , 
EXCEPTIONS,  REPRESENTATION 


13 


II 


Tlr\t  way  by 

structure 


which  \sue 
on  data. 


cm  pose 
objects 


Meed  to  describe  objects 
factorization  of  properties 
maintaina  bili  t 


Meed  to  be  able  to  sag  Something 
about  the  properties  of  objects 
reada be  ti  t<j 

Meed  to  guarantee,  that  properties 
of  objects  are  not  violated 
re  i  i  a  b  i  1 1  ty 


Meed  to  Imde  implementation 
details 


1 


TYPES 


motivation  Foa  Types 

W HAT  IS  ft  TYPE 

enumeration  types 

CONSTRAINTS  and  SUBTYPES 

numeric  TYPES 
ARRAY  TYPES 
RECORD  TYPES 
ACCESS  TYPES 

TYPE  equivalence 


o 


what  is  a  type 


#  -type  characterizes  : 

.  a  set  of  wines 

a  set  of  operations 
applicable  to  the  \jalues 


2R 


UMAT  IS  ft  Type 


Cla 


sses  o 


f  k 


ypes 


scalar  types  values  have  no  components 

•  enumeration  types 

•  numeric  ta  pes 


composite  types  values  consist  of 

component  values 

•  array  types 

•  record,  types 

access  types  values  provide,  access 

to  other 

private  types  values  are  not  ftnouun  to 

the  users  .*  only  the,  set 
of  operations  is  hnouun 


ZL 


*  rules 


fill  objects  mu  si  be  declared 

variables 


obiects  can  be 


constants 


Each  object  jets  a  type,  in 
cts  declaration 


step  i 


Any  operation  on  an  object  step 

must  preserve  its  type. 

=t> 


i  he  type  of  any  object  i s  invariant 
during  pro j ram  execution  : 
it  is  -the  type  jiven  in  the 
object  declaration 


3 


3 


characteristics  of  EMunewr ion/  types 


ir 


attributes 


type,  DAY  IS  (MO^Tue^EDjTHUjFR^  SAT^  60NJ)} 


Set  of  [/atues  ■ 

MON/  TUE  weo  TH-U  FRl  SAT  SUN 


Set  of  operations  apphcablt  fattest  values.- 


=  /= 

>  >=  <  <=^ 


test  for  (in)  equate  tj 

test'  For  order 
MON  <  FRl 
iF  TODAY  >=  TUE  IKen 


assignment 


DAY 'FIRST 
DA  y  /LftS  T 

dqv'succCd) 


MON/ 

SUhJ 

—  e.g.  dry'succ(mon)  =  rue 


ENUMeftAtlOW  TYPES 


enumeration  type  declarations  • 

type  DldUTlObJ  ^ (WOftTH^  EAST, SOUTH^ WEST); 

type  DA Y  ciCMO^TOE^ED^THU^FRI^  SftT^  suw) 

object  declarations  ■ 

goal  :  Direction  ; 

TODAY  :  DAY*, 

MIDDLE  :  Con  sfanf  DAY  «•  THUj 


cor  reef 


nmenfs  : 


GOAL  :  ~  WEST ; 
TODAY  :*  MOK/j 
TODAY  :=  MlODLE  j 


incorrect  assignments 


6-OfiL  :  * 
TODAY  :  = 
60  A  L  = 
60A  L  :  *. 

middle  :* 


Compiler 

detectable 


5 


examples 


object  declarations  : 

Too  ft  Y  DR  Vj  —a  v/Anabte 

START  DRY  :»  MOW  \  —  i)  At  Kali  ted. 

MIDDLE  Constant  DRY  •»  THU  ^  —  a.  constant 

yesTER-DAY,  Tomorrow/  ^  DRY  j  —  tu/o  variables 


0TH£<i  Goans  of  ets/uneRfVTioM  Types 


QOuifliQ ration  literals  cam  be  either 
identifiers  oc  character  fitera  Is 


9 


3 


COtfST(?ft(MTS 


.  a  constraint  restricts  'the 

set  of  possible  v/a(ues  of  a  type* 

.  a  constraint  does  not  change  tbe 
set  of  applicable  operations 


constraints 


D  :  DRV  rar\je  MOW  ..  FRi*^ 
L  DRY  range  THU  ..  FRi  ^ 


range  tovjtr.bownd  ..  upptr.bomnxt 


subtypes 


14  A 


motivation  Fa ct oft zation  For 

re.cLota.loL  Li  ty  and  maintaina  fci  liFy 


D  : 

DAY 

range 

MOM 

..  FRl 

E  : 

DAY 

range 

MOM 

..  F£l  j 

F  : 

DAY 

range 

HOM 

..  FRl 

a . 

Subtype 

indicthon 


Factorize  by  a  subtype  ■ 

Subtype  WEEKDAY  is  DAY  range  MON/  ..Ffc(* 


D  :  WEEKDAY  j 
E  :  WEEKDAY  i 
F  WEEKDAY  •, 


eyui  n/aienl  ti 
■Fine  former 
declaration 


u  subtype  name  is  an  abbreviation 
for  a  subtype  indication 


\<t 

M 


what  tfwe  a/e  seeu  so  far  ? 


a/hat  ts  a  "type 


enumeration  f 


ypes 


i ^hat  is  a  constraint" 


su 


b typ 


es 


Simi  lar 
other  t 


not  tons 

1  pes  - 


exist  for 


array  types  • 
record  types 

types  • 


real 


index  constraints 
discriminant  Constraints 
accuracy  constraints 


ARRAY  TYPES 


type  VECTOR  is 


great j( |N/r£fr£g>  range  <>)  of 


o not  ex  ttjpe(s) 


j 


REAL  ; 


component  typeJ 


set  of  values 


each  VECTOR 

•  has  components  oh  type  REft l 

•  is  indexed  by  values  oh  type  (tvTBGER. 
In  particular  ffe 

index,  bounds 
are  oh  type  INTEGER 

f\AJ0  VECTORS  need  Hoi  have  "the 
same  bounds 


i 


It 


EXAMPLES  OF  AftfcflY  TYPES 


LO 


hjpe  HftTRl X'  IS 

qrfag  (  ikjtece&  range,  o , 

iwT£66R.  ran^e  <> )  offtEPL*, 

's - -  v  — 

two  -  d imensi onaL 


s  u 


bhjpe 


WATuaftLcs  iKfTe^ea 


fftnjp 


l  ..  CWTEG-EP'LftST; 


t 


^pc  $>TRiU(r  is  arfgyCNhTVQM.  ran^e  <>) 

of  cHflftfrcreR 


tnctex^ 


are  arrays  of  characters 
bij  nab u ral  num  be rs 


2.0 


IUD6X  COWSTfcftlWTS 


Rn  index  constraint  serves  to 
specify  the  tndex  bounds  of- 
an  array  object 

V  :  VECTOR  (-10  ..  10):, 

W  :  VECTO  R  (  \  •  .  lOOO)^ 

Array  subtype 

subtjpe  vect  is  vector  (o  . .  n) 


Z1 

t 


ik/DEx  Bounds 


tine  (We*  bounds  of  a.  constant 
ace  obtained  ffotn  its  initial  \falae. 


HESSA&e  constant  STRING-  :« 

"  how  many  characters 


ft  formal  parameter  is  constrained  by 
■Hie  (Wex  bounds  of  the  correspond^ 
actual  parameter 


procedure  Put(  s  .•  string) ; 
Put  (message  )s 


AfcRAY  TYPES 


23 


Set  of  operations 

=■  /=  test  for  (in )  equality 

•*  assignment  possible  if 

Some  number  of  components 
(but  bounds  need  not 
be  tbe  same) 

indexing  indexed  Component  V  ( I ) 

slices  for  one-di  mens  l  o  nal  arrays 

V/  (  I  ••  J) 

(a  slice  is  an  array  ualue) 
notation  for  array  values  ■.  aggregates 

A  VECTOR  (i  ..  io )  •-  (1..10  =>  o.o); 

A  :=  (  !  ..  I  =>  1.5,  -.7  =>  X,  oH>ers  =>  Y )• 

A  (Z  ..*f  )  :=  (1.0,5.053.0)^ 


It- 


RECORD  TYPES 


tijpe  D(VTE  cs 

record 

MONTH  :  flONTH-NJAME  ^ 

DAY  :  INTCC-6R  rarxge  1..31} 

YEAR  :  integer  rat^e.  O..I00O 

>nd  record^ 


V* 


V $ 


r 


R6C0RD  Types  WiTjH  WSCtflMlWAWTS 


t^pt  Person  (sex  :  gender  :»  f)  is 
record 

BIRTH:  DATE-, 

cast  SEX  is 

when  M  =>  6£flROEO:  600L6M-, 

wh tr\  F  =>  CHILDREN--  INTEGER-, 

end  case-. 

Efxd  record,- 


set  of  values 

taples  of  fKe  form 
(M-,  (MflR,  2.5,  uvo),  FALSE) 

trt  p (es  of  +He  form 

J 

(F,  (JflK/,23,  lS<r3),  3) 


(sex  =  H 

BIRTH 

BEARDED 

(SEX  -  F 
<  BIRTH 
/  CHILDREN 


ITfilb 


DISCRIMINANTS 


sei  of  operations 


discriminants  mai 

o 

by  global  record 


ass 


be  charged 
iq  n  m  i  nfs 


P  PERSONS  --  P.SEX  =  F 

p  :«  (m,  son e.DPfr^  true) ^  --P.sev:  =  Pl 


P.  SE.X  :*  •••  —  llleja  I  ! 


•  access  to  a  component  of  cl  variant 
p aft  depends  on  ihe  value  of 
fhe  discriminant 

p.  bearded 

P.  CHILDREN  raises  Cok/STRAiKfT_ 6’RRoR 

tP  P.SEX  -  M 


ZS  L 


Z7L 


RECORD  SOBTyPES 


discriminant  constraint 

John  :  person  (sex  =>  tt)-, 

MftRy  :  PERSON(p)  :=  (F,  (MAR ,3,1970), o)*, 


record  subtypes 


subtype 


MALE  is 


sub bype.  Fgime  is 


PERSON  (SEX=*>  M\* 

PERSON  (SEX  ->  F)s 


Mi¬ 


ls  L 


AN0TH6R.  e<MlPL£ 


nftT  :  gfraij  (1  ..  N/  ?  l  . .  N/)  of  re&l; 
iftk  record: 


bounds  mom  depend  on  a.  discr  imi  nant 


SQUARE  (Nj  WAToRftL)  is 
icocd 


declaration  must  ^i'ue  the. 

d  t  scr t  rw  t  Aayvf  i/alu£ 

ft  ( 8  SQUARE  (?)j  8x8  rviaffix' 

-the  size  of  the  Matrices  cannot  b e  changed 

-  it  is  impossible  to  create  a  rectangular 
Matrix  usi'nj  the  SQ/ortfcE 


Type  eQuiWLewce 


u then  do  two  objecfs  have  the  same  type.  ? 

each  type  definition  defines 
a.  distinct  fjpe 


each  typz  name  denotes  a  distinct 


=0 


Iwo  objects  have  the  same  type 
if-  their  declarations  refer 
to  ‘the  same  t<jpe  name 


name  equivalence 


TYPE  EQUl  VALENCE 


X  ar\cK  Y  ace  not  of  The  same  f 


ype 


*  :  drra^C  l..(o)  oft  (UTEOEfc 


V  af ran  (i  ..  \o)  of  inteoei 


fu/o  type 
definitions 
Kcrvce  TWO 
distinct 
types 


U  and  \J  are  of  thft  Same  type, 

U,V  :  (  l  -  -  »o)  of  IKiTEOE  ft  ; 

one  stvujlehjpe  definition 

Or  better  even  .*  name  the  type. 

tyg.e  TA8l£_(o  is  array  f  i . .  io^  of  Ik/teceP; 

ft,  ft  :  TABLE. 10; 
c  TABLE. fO; 
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EXPLICIT  CONVERSIONS  gETNEEN  ARRAY  TYPES 


hjpe  VECTOR  is  orratj  ( tUTE66R  range  o')  of  REAL; 
proce<^are>  SORT  (  *  :  cr\  oat  SECTOR.); 

ttjpe  TABLE  cs  arra^fiNTEGER  range  <>)  of  Real; 
procedure  LIST  (>C  •  MUTABLE); 

ft  :  TABLE  ( I  -  loo); 
ft  VECTOR  Co  ■•  looo); 

C  afra<j  C  l  ••  zooo)  of  REAL; 

LIST  (ft);  SoRTfe^; 

SORT  (VECToR(ft));  L(  ST  (TABLE  (6)) 


SORT  (VECTOR(O); 


LIST  (TA8LE  (C)); 


5UMrmfty 


Motion  of 

set 

set 


type 

of  values 
of  operations 


moti  vated 


re  Li  a  bi*  It  t 


Classes  of  types 

scalar  .•  enumeration 

numea'c 

composite  array 

record. 

access 

pci  Mate  types 

Constraint s  and  subiy  pe s 
for  aU  classes 

Marne  equivalence* 


cts 


k 


i 


SOF  rmdS  COMPONENTS 


M.D.  nacUroy  t  ISC3 

1  Would  like  to  see  cooipcnfnfs 
become 

so  f-t  ware 

X  would  like  io  see  s tandard 
Catalop  oF  routines  classified  by 
precision,  robustness }  time-spac  e 
requirements  and  binding  time  :f 
parameters.  " 


a  dignified  branch  of 
engineering . 


•  manufacturers  of  standard  Components 

•  cafalogs  of  Components 

•  parameterized  components 


j 


66/VeRft L  PROGRAM  STRUCTURE 


how  to  organize  text 
compilation  units 

scope  and  visibility 

f\Lgo(  like  visi bi lity  rules 
and  extensions 


Packages 

for  better  control  of  visibilit 
for  logical  modularity 

private  types 


separate  com  pi  (at  ion 

For  physical  modularity 

methodological  impact~ 


PROGRAM  UNITS 


-three  forms 

subprograms 

packages 

tasks 


program  units  maig  be  nested 

classical  Algol -like  block  structure 

program  units  mag  be 
separate lg  compiled 

library  units 
Context'  specifications 


SCOPE  fVND  VISIBILITY 


declared  identifiers  have  cc  scope,. 

fine  scope,  of  a  declaration  is  the, 
region  of  text  where  the  declaration 
has  an  effect 


different  identifiers  may  bt  visible* 
at  different  points  of  text 


the  declaration  of  an  entity  is  visit!  z 
at  a  gcVen  point  if  an  cccarctnce 
of  the  corresponding  identifier  at  this 
point  denotes  the  entity 


BASIC  VISIBILITY  rules 


ALjoL  -  Lke  rules*,  diced-  v/tst  bt  U 

•  identifier  from  outer  confexfs 
are  visible 


an  inner  identifier  mag  fiioie 
an  outer  (\omo num 


Dob  notation  •  selected  component 
unct, name .  identifier 


Mamed 

Mamed 


record  components  in  aggregates 
parameter  associations 


i 


selected  components 


procedure  OUTER  i_i 

A  BOOLEAN) 

B  :  BOOLEAN) 

p rooc clgre  INNER  ^ 

6  :  Boolean/)  —  hides  OUTER. 6 
C  :  Boole  AN; 
begin 

B  :=  Aj  —  INNER. B  S»  OOTER.A 

l 

J  c  OUTER.  B)  --  inner. C  :*  OUTER.  B 

j  end) 

* 

begin 
end  outer; 


s elected  cow poneni s  are  also 
used  -fo  denote  record  component's 
and  ifems  declared  in  packages 


j 


VISIBILITY  OF  RECORD  COnPoWENTS 


procedure  ?  is 

I  •  •  • 

! 

tcjpe  DftTE  ij 
record 
Ho*JTH 
pfly 
year 

er\d  record  • 


aowTH.wme  j 
iwTeoeft.  range  I  .  31, 
in/teg-ER.  range  o  ..  3 ooo , 


TODAY  :  DAY; 


TODAY.  DAY  :=  10  i 

ToOAY 


--  selected 
--  component 


end  P; 


(YEAR  =?  i5*05  H0MTH=>  S£p>  DAY  =■?  lo) 

--  named  ajjreja^ 


o F  Coarse ;  only  possible  aittkin  scope 


PHCKRG-  ES 


Package  S  are  used  -fo  formulate 
•  named  collections  of  declarations 


Package  spccification/  awd  &ody 


pOLckoL Jj  e- 
specification 


package 

body. 


package,  P  i_s 

2/t  si  bfe  part 


S 


•  •  • 


end  P-y 

pa c  feage  bodg  P  bs 

hidden  part 


end  Pj 


Merfact 


\ 


empfeme  ntaf 


I 


ft  PcLcbaje 


TEXTUAL  separation 


procedure  spectK’cah'on  •• 
procedure  SORT  (.  V  :  !H 

procedure  body  : 

procedure  SORT  ( v/  lQ. 
begin 


a±+  vector), 


out  VECTOR)  Is 


god  Soar ; 


FOR  MS  OF  PftCKPt&E  S 


WORK .DATA  ii 

|  ttjpe  DAY  iS  (MO^Tt* ^60  THi^FRl, SAMSON); 
tijpe.  Tine  is  delta  0.01  range.  0.0  ..Z^r.Oj 
tijpe  Tine.TftfcLE  is. 

gffg j  (DAY)  o£  Time  ^ 

WORK. HOURS  :  Tme_TABLE  ; 

WORnAL.  HOURS  :  Constant  Tin£.TA6L£  :  = 
(M  on/  ..  FRI  *>  8. 0>  SAT  |  SUM  =>  O.o)- 


end  WORK.OftTA* 


s 


I'HC KftOc  fcXAnPLE  ••  RANDOM 


pac  kage  RANDOM  Ls 

tijpe  R£ftL  &  digit*  7j 

procedure  SETISEED  ( START  ••  INTEGER)* 
function  RftWO.tNtCLjH:  tHTECERWtum  IS/TEC-ER. 
Function  uniform (l>h  :  rerl)  return  real •> 

Z(\d  RANDOM; 


bodj  ftftwooM 

S6£D  :  |WT66€ft; 

CO-S6€0:  R6ftL. 

9 

prmduct  couGRueuce  c$ 

f  SEED  :=  •••  ;  CO.SECD  :  s 
end  t 


local  daU 
local  procedure 


procedure  SET.se ED  (START 
b^Co 


beAtn 


fend } 

function 
functt  or) 


^ANO.IWr  .. 
UtfIFOftM  .. 


:  IWTtCtfc) 


fend* 
•  gndt 


t'S 


fend  RANDOM; 


1  Hi,  fi a 1 1  zation 


INFORM  RTtOM  HIDING- 


Textual  separation  of  the 

•  the  visible  part  defines 
the  Logical  interface 


the  implementation  may  be 

protected  and 


interface 


both 


PftlV/flTE  TYPES 


package.  Simple  .input, output 

t  jpc  FILE  cs  private  • 

WO.PiLE  :  constant  FILE; 

procedure  ASSK-W  (  F  =  out-  file.); 
procedure  READ  (  p  :  Cn  file j  ...); 
procedure  write  (  F  •.  in  file;  ...); 

private, 

tt^pe  file  ls  new  Integer.  range  o  ..fo- 

No.FiLE  :  con  slant  FILE  :  =  0; 
end  simple. iw put. output; 

pac.ft0.3e  bod 3  Simple -input,  output 

ttjpe  FILE. DESCRIPTOR  ts  record  ...  end  record  • 

directory  :  array  CFn-t')  o£  FiLE^oescRiPTDR.j 

procedure  ASSIGN  (F  .  0^  File)  ls 
beavn 

| 

end  ASSIGN; 

Issis.'" 

|  —  cm h'ati  zaf ion  of  directory 

» 

end  simple. input. output; 


i9 

*  c 


i 


LIMITED  PRIVATE  T/PES 


pac  ia^s  input,  output  is 

tijpe  IW-FILE  is  I i mi  fed  pri 

procedure  OPEN  (F  :  IW.FILE; 

pfoc gfiurg  CLOSE  (F  :  |A4id  lU.FlLfc; 
procedure  REPO  (F  :  On  IW.FiLE; 

FILE-OPEN. ERftoA.  :  excepfcon  t 
j>ftVotg 

t#>t  IN- FILE  i± 

record 

FlLE.IWOEX  :  INTEGER  J-  0; 
end  record- 
end  INPUT. OUTPUT; 


ZO 


surinflft y  okj  private  Types 


•  Values  are  not  An o*m  outside 
the  pa.cA.ajt 

•  the  only  op erah'ons  available  are, 

those  of  the  visible  part 

unless  Limited 


Access  to  T«e  visile  part 


dot  f\oio.tiof\  :  selected,  components 
F  :  input,  out  put .  iw.file  ; 
INPUT.  OUTPUT.  OPtW  (  F  ^  > 

Hi  PUT.  OUTPUT.  REAO(F,  *); 

coMeefti/efy  :  olanst 

declare 

ase  in  put.  out  PUT; 

F  :  IN.FlLE; 

be^in 

OPEN  (  F)  i 

•  •  • 

READ  CP,  X); 


SUMnAfty  ON  PACKAGES 


use s  of  packages  Coxjer 

named  collections  of  declarations 
groups  of  subpro  g  cams 
private  types 

teoclua. t  separation  of 

package  specification 
package  body 

packages  support  information  hiding 

packages  serv/e  to  shov/u 
private  types 

values  are  not  $.no*/n  outside. 

access  to  the  visible  part 
selected  component 
use  clause 


2.4- 


SEPARATE  COMPILATION 


•  same,  degree  of  type  checking  across 
separately  compiled  units 
as  witKin  a  co m pi  tat* ion  unit" 


•  support's  program  construction 

top  down  dev/e lopment  . 
separate  compilation  ot  the 
parts  of  a  program  :  sab  units 


bottom  up 
reusing 


development  .• 
program  modules  ■■  library 


u  r.  C  t$ 


grain  of  change  • 

recompilation  of  a  unit 
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COMPILATION  UNITS 


several  possible  forms 


U  trary 
units 


package  declaration 
Subprogram  declaration 
sabani bs 


or  body 
or  body 


Context  specification.  u/ibk  clause* 
with  T£*T-10?  ReRL-OPERftTlONiS^ 

procedure,  quadratic. elation  is 
•  •  • 


end  OUflORftTlC.EQUftTlOWj 


LG 


(TOMPlI-ATtON/  hOO£L 


either  addition  o(  a 
r\Vuj  unit  or  update 
of  an  old  unit 


no  o/tfh 
clause 


Some 

dependence 


BtfTTori  up"  PROGRAM  D£V6L0PM£NT 
6EfJ6(lftLLY  USRQLE  PACKAGES 


packet  MATH.  FUNCTIONS  ti 

•  •  • 

end  MATH  .FUNCTIONS; 


With  rtftTH.GDN/ST; 

aaift. age  SURVEYING  c£ 

•  •  • 

end  suftveyiUG; 


with  math.comst,  math.fun;cticn;sj  | 

pq-cfea je  bod^  SURV6VIK/G  Cj* 


end  Sura/eyik/g  • 


ftwy  n ft /ivy  P*oC«nn 
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*  TOP  DOW"  PPOG&fi M  OCVCLOPMCMr 


i 


fcnfh  Hftrrt.FowcriorvJSj 

procedure  TOP  C  s 

me  MATtf.FwtfCTiOL^ 

t  jpe  R6ftL  is  debits  10  ^ 
R,S  :  RtftLi 


i 

i 

i 

i 


pac  D  is 

PJ  :  constant  ;=  ZJHtSl.ZGSZCi 
Function  F(_X  :  REAL)  return  REAL; 
procedure  C(  y^Z  :  REAL); 
ind  D; 

pacfe.ft^e  bodtj  0  is  separafe  ; 
procedure  Q  (u  =  Real)  is.  separate ; 


begin 


<UR); 


j  O.OfR.S); 

! 

end  ToP; 

COnPlLfi  tio*/  SU3Ufv'|TS 


Body 

STUBS 
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SU&UW  ITS 


ft  SU8UN/»T 


ftMOTKER 
SUGUN  IT 


separate  top) 

proceed u.re  Q(U:REftL)  i£ 

use  D> 

begin 

•  •  • 

U  :*  F  (u)  \ 

•  •  • 

I 

end  Q; 


i 

I 


WX±K  IK/ PUT. OUTPUT; 
separate  (top') 
package  bo^<g  D 

--  local  declarations 


function 

begin 


6MF; 

procedure 


begin 


F(X-.  Real)  return  REftL  i$ 


i 


Cr(Y,Z  :  IS 


separate  j 


Body 

STUB 


Ind  O; 
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NOTE  ON  V/lSl6lLtry 

which  identifiers  are  visible  at 
the  start  of  a  Compilation  unit  ? 

•  For  a  library  urufc 

-  all  identifiers  of  the  predefined 
environment 

the  package  STRNDRRD 

-  all  the  names  listed  in  the 
with  clause  $ 

-  the  name  of  the  unit  itself 

with 

package  P  is  •  •  •  end  ? ; 


for  a  5u.b  u  nt  t 

same  as  dt  the  s tub;  plus  with  clauses 


hethodolooical  impact 


bottom  up  development 
libraries  of  pack ages 

onrc  ttie  interface  is  defined  ^ 

bbe  bodj  can  be  redefined  independently 
ot  tt\e  ustn^  urufs 

need  for  operations  on  libraries 

top  down  development 

agree  on  interface  then  develop  suburufs 


physical  modularity 

Phy  steal  information  hiding 


towards  an  indmstcij  of  software  component 
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ALGORITHMIC  ASPECTS 


IVAM£S  af\d  EXPRESSIONS 


STATEMENTS 


subprograms 

procedures,  funcfions, 

and  operators 


ouerloadinj 


some  declarations 


irijpe  DATE  i} 
record 

month  .•  month  ..name  -t 
Oftv  inte  ge  ft.  range  l 

year  integer  range  o 

end  record.  • 

bgpe  person/  (sek  :  g-ender)  Cs 

record 

glRTH,  D EATH  :  DftT£; 

ADDRESS  :  STRING- (l  .  JO)  •, 

0  0  0 

end  record- 

subfgpe  King  is  PERSOM  (m) ^ 

LOUIS  :  arm^ (1  ..  18)  of  KING} 

JOHN  :  KING-  :=• 

C SEX  =>  K  , 

Birth  =>  (oec,z«-7 iig7), 

DEATH-  (OCT,  l  8  ,  1116), 


2_L 


A/ftMES 


t den  i  c  Piers 

LOUIS 

MOWTH.MftME 
K  INC 

indexed  component 

Louis  (\c) 

selected  Component 

JOHN/.  6 IRTH 

apt  cl  hate. 

HOUTU.kJPtnE'fiaST 

nouTH.K/flne'/.HST 

function  call 

Hein(joH-v) 

slice 

LOUIS  (ll  ..  18) 

3R 


is/nne  s 


Combinations  of  fhe  previous  forms 
are  also  names 

LOUlS(i  l).  Bl RTH 
LOUIS  Ol) .  8 I  RTH.  YEAR 
JOHN.  ADDRESS  (12.) 

LOUIS  (lM.  ADDRESS  (1) 

HEIR  (JOHN).  BIRTH  .  DRY 


LOUIS  ^9  •  •  l2.)(to) 


--  LOUI S  (J 0) 


A 


OPERATORS  and  EXPRESSIONS 
Sloc  precedence  levels 


lowest  lojual  operators  and  or  ocor 

and  then  or  else 

relational  operators  ~  /-  <  <-  >  >= 

in  not  in 


adding  operators  & 

unary  operators  + 

multiplying  operators  *  /  rem  mod 

highest  exponentiating  operator  *-*- 


S 


EVALUATION  Of  EXPRESSIONS 


operators  of  hij her  precedence  are 
applied  first 


parentheses  to  impose  a  specific  order 

fhe  order  of  evaluation  of  the. 
t \jjo  operands  of  an  operator 
is  n of  defined  (except  For  short  circuit 
control  forms) 

fill  operands  of  an  expression  are 
evaluated  (unless  it  contains  short  c ircu\t 
Control  forms) 

SUKJKjy  and  WARM 
WEXT.cdR.O^wee.  /=  null  and  then  NJt*T_cflft..owwea.ftGe  >  is 


6 


statements 


5twp(e  assignment  statement 

or  compound  statement s 


tT  •••  then  cost  is  loop 

•  •  •  ••• 

end  Cf ;  end  case,;  end  loop; 

also  accept  or\cl  select  statements  and 
declare 
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SUBPROGRAMS 


Conventional  pa  ram  eh  a  zed  program  urufs 
TvJO  forms  of  subprograms-. 


Procedures 

a  procedure  axl\ 
<is  a  statem  ent 


functions 

-  called  in  expressions 

-  return  a.  value 

OperaFors  are  defined  as  functions 


If 


u 


subprogram  bodies 


procedure  identifier  formaLpart  is 
dectarat ue  parf 
peg  in 

sequence  of  statements 
end  identifier  ^ 

function  designator  fornnaLpart  return  sobtgpe.  indication  is 
declarative  part 

begin 

j  sequence  of  statement  s 
end  designator ; 

a  designator  is  either  ar\  identifier  or 
an  operator  s  umk>oLf  for  e  tamp e  *h" 


SU8PR06SAn  DECLARATIONS 


subprogram  declarations  mag  be 
introduced  for  rea  Mab  t  li  ig  const  derations 

procedure.  QuftORftTiC .EQUATION/ 

(ft,6,C  : 

ROOT.1,  ROOT.  2  :  oat  dEfVL-j 
OK  :  ou.  E  (SOOLEftKl)* 


function  MVWER.  (*,  Y  :  VECTOR)  return  VECTOR.-, 


- th 


eg  are  necessary  in  f he  fo  llovoinj  rases 


-  packages 

-  mu.fu.at  recursion 


(subprogram  specif  feat- tons  also  appear 
m  generic  declarafions  and  renaming 
dcdaCaf  ir  ns) 


PARAMETER.  MOOES 


three  possible  modes 

in  the  parameter  acts  as  a  local  constant 
whose  value  is  pfotided  by  the 
corresponding  actual  parameter. 

out  the  parameter  acts  as  a  local 

variable  whose  value  is  assigned  to 
the  actual  parameter  as  a  result 
of-  the  execution  of-  the  subprogram. 

in  out:  the  parameter  acts  as  a.  local 

variable  and  permits  access  anet 
assignment  to  the  actual  parameter 

on  is  the  default 


For  scalar  and  access  types;  ePPect  achieved 
by  Copy.  For  array  >  record;  or  private 
types-,  either  by  copy  or  by  reference. 


FUNCTIONS  ftWD  OPERftTORS 


[tuutiori  INNER  (y,Y  •*  VECTOR")  r^Kirrv  VECTOR  is 
0  0  0 
:>e<^Co 

•  •  • 

return  SUM  j 

end  INNER} 

funcHoa  V’  (>i,Y  :  v/ ECTOR)  return  V£CTo(?  is 

O  •  • 

peg  in 

•  9  # 

return  SUM} 


end  V 

i 

> 

ft,  ft 

:  ^ECT0R(1  ..W)» 

R 

:  RE  ft  L  } 

R  • - 

INNERO,  6)} 

R  :« 

ft  *-  &} 

On(y  Cr\  parameters 


r 


PROCEDURE  RWO  FUNCTION/  CfrLLS 
PosiTlON/ftL  CftLLS 

1N/N/6R  (  A7  6) 

QUftDRfmC-  E<?UfiTION/C  (  L ,  M, N,  P,  Q ,  STftTUS)  ^ 


iv/ftneo  PflRAnETER.  ftSSOO ATIONJ  S 

formal  =>  actual 

.  QUftORftTiC.EQUftTlOMS 

ROOT_1  «>  ROOT.1  =>  Q, 

OK=>  STRTUS)j 

•  positional  associations  must  precede 
named.  associations 

•  fhe  order  of  named  associations 
is  immaterial 
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DEFAULT  PARRHETERS 


ft  default  value  may  be  given 
foe  an  in  parameter  Cr\  a. 
Subprogram  speci  Fica'tion 


type  STeftK.TYPe  is^RARe,  neo(UM?  well-done)} 
tgpe,  P0TA70_STYl£  l$  (BAKED,  CREAnED)  FRIES)-, 
tvj pe  DRESSINO.KiMD  is  (  BLUE-CHEESE, 

THoUSAMD.tSLAMD,  OIL.  AND-VIWEG-RR  ^  FREMCH)* 

procedure  order, dimmer 

(STEAK  :  in  ST6AK.TYPE  MEDIUM, 

POTATO  :  in  POTATO. STYLE  :®  BAKED, 
DRESSING:  in.  DRESSlNG.KWO  :=  FRENCH)- 

ORDER.DlNNER(ST£AK  =>  RARE)*, 
order,  dimmer  (medium,  cRERneo)- 

ORDER-DIMMER  (RARE,  DRESS  (MG  =>  BLUE-CHEESE) 


ORDER. DIMMER-, 


OVERLOADING 


•  Overloading  dots  not  hide* 

•  The  identification  uses  the  context 


If  -fhe  context  does  not  suffice 
use  quali  f  i  cat  ton 

procedure  register  (d  <  dry'^ 
procedure  register (s  =  object)* 


register  (tooky)*  1  no  problem 

register  (nexT.Plrnet)*  )  voith  Variables 

REGISTER  (T'JE)-,  ?  no  problem  luith  non- 

R  EG i st  £  R  (  E ART h) *  )  overloaded,  liberals 


REGISTER  (son)* 
REGISTER  (  DRY'(SUN))* 


the  solution  is 
to  qualify 
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Sue>P(Z06(Zfln  sunnARY 


Procedures  and  functions 


Specification  may  precede  body 
-  must  mate  h 

Three,  possible  mode s 
C_r\  out  cnoat 

Positional  and  banned  calls 


Default  ij\  parameters 


Overloaded  Su.b  programs 


32335880^ 


TftSK'IKiG'  CONCEPTS 


TASKS  and  TASK  TYPES 

task  body  }  specificate  on  t  objects 

task  execution 

activation  term  i  nation 

Connu  n/  icftTioivy 
entry  alls 
accept  statements 

TIMING 
delay 

SELECT  STATE n ENT 

or\u.l  it  pie  w o.i  f 

fr'medl  and  conditional  calls 


1 


rendezvous 


SCtfEOULIN/0 

priori  fres,  inierrupt 

CiaSsi f i cation  of  tasks 


TASK  TYPES 


task  specification 

task  type  T 

entry  declaration 
end  Tj 

task  body 

task  body  T  is 

declarative,  part 
b eg  in 

sequence  of  statements 
end  T; 


task  object  declarations 
V,V A/  :  T-y 

rnorpKologij  similar  +o  packages 


the  interface 
to  otr^qc 

tasks 


the 

actions  of 
the  tasks 
of  +ln  e 
boipe 
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TftSK  TYPES 


a  task  type  is  a  it  meted  private  type. 
r\o  asstgnmenf 
no  ((In')  equality 

task  objects  a in  be  in  parameters 
an  access  type  can  re  fee  to  a  task  type, 

task  type  K£Y6oftO_DRtv/£R.  Cs 

fteftO(C  :  oat  CHARACTER.'); 
WftlTe(C  :  Cj\  CHfrRftCTER);  - 

end.  i 

type,  K£Y6oftR0  Cs  access  KEYSowiD.DRu/ER • 

TERniK/ftL  :  KTYSoftRD  :*  new  KEY60ARD.DRl\/ER} 


--K£Y6oftR0  is  not  a  limited,  predate  type. 


ft  SinPL£  6XAHPL6 


procedure  fVRRiv/ E  _ fVT_  AtRPoRT  i£ 

task  CLmn_eftG-C'fK-e  ^ 

;  task  RENT_A_  CGR; 

j 

1 

tasAbod^  afvin. Q>PcC&*&£  ts 

!  o  o  • 

;  j 

|  end  ^ 


i 

| 

\ 


task,  bodut  R6NT.A_CA^.  eg 


i  p,t\d : 

beg  C  n  —  CLft-in_6fte-c-0'6£  ar\<*  R£MT_ft_£AR 

1  --  become  actC'/e 


BOOK.  _  HOTEL} 


end  •  --  await  termi  na-h'on  of 

--  CLftm_$fH-ORC-E  anck  R£  NT_f{  _  CftC 
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COMMUWICftTtow  BETWEEN  TASKS 


task  Speu  ft  ca  (  l  on  ■■  fbe  enter  face. 


task  LtM£_TO_cHftft.  {£ 
entry  PUT.Ll KJE  (  L  : 
enfrtj  66T.CHftR(  C  :  oaf  CHARACTER); 

ind, 

« 

tas  0.  body  : 


body  Line _TO_ CHAR  ts 

i  Buffer  .  liwe  ; 

begin 

-=  sfafer«0nts  describina  the  actions 
!  —  performed  The  "fas  ft. 

end  UW6.TO.CHAR; 


~t lj p C  LINE  is  affQUj  (l  ..  Zo)  of  CHARACTER. 


t 


Eimies  awd  accept  STArenEfvrrs 


entry  declarat  ion 

entry  P UT.LIME  (l 

entry  call 

UWe.TO-CHAR.PUT.LINE  (hY-LlNE)} 

accept  statement 

accept  Put.uue(l  •  in  Live) do 
SUFFER  :«  L 
end  put.uwc; 

r.e*joez\/ous 

befw/€«n  entry  ca.il  and  accept 


Similar  to 
a.  procedure 
de tiara  lion 

Similar  to 

a  procedure 
call 

Similar  to 
an  t  n  It  r\  e 
procedure 
body 

-  /  JL  -  .  , 


Queues  : 

several  tasks  be  waiting  on  an  entry 
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RENDEZVOUS 


er\Vnj  PuT.Li^e(L:  m  Utw'E.)- 


whoever  cs  -fhere  Pirsf  watis  for  I  We  o't'Ker 

wlr\eo  bohh  are  -i"here;  -fhe.  accept  is  evecu/hecJ 

Whereafhgr^ +he  caKmg  anc<  ihe  called  'has??. 
Con-hnve  m  parallel 


ft  SERVER  TASK 


ta£&  L1K/E_T0_  CHAR  C± 

entrij  PUT.UWE  (  L  :  in  LIWE\ 

I1\tcy  GET-CHAR  (C  :  *d  CHARACTER); 

and; 


task  bodtj.  UWE.TO-CHAR  cS 

BUFFER  :  UK/E; 

?egin 

loop 

accept  PUT.LIKiE  (u  in  LINE)  do 
I  BUFFER  :*  L; 
end  PUT.UKIE; 

for  I  in  Buffer* rak/ce  loop 

accept  CET-EHftR(c  :  out  CHARACTER^  do 
j  C  :«  BUFFERCi); 

end  GET.cwftfti 
end  loop; 
end  loop; 
end  UWE.TO-CHAR; 
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USER  TASKS 


bash  PRODUCE.  LINE; 
task  COWSUMC . CHAR  ; 


tasfc  bodij  PRODUCe.UWE  C$ 


MY-Liue  *  liwe*, 


begin 


--  Ml  ny.LlUE  from  somewhere 

UME-TO-Ct+fVQ.  .  PUT_UNE.(  tty..  LINE.) 

end  loop; 
end: 

:asfe  bodij  C0IUSUM6.CNAR 
hy.cHna  :  CHAnncTeR; 

>ejtn 

f®S£ 

UWE.TO.Cttfta .  GET-CHAR  (ny_6HW); 

—  dispose  of  MY.CHAR; 
en4  loop; 
end; 


OCLAY  SThT^MtMT 


delay  3.5  j 

Suspends  the  task,  for  at  least  the, 
duration  indicated 


units  are  seconds 


the  expression  is  of  the  predefined, 
fixed  point  type  durrtiow 


For  clarity  one 

SECoh/OS  ••  Constant  :*  I.O] 

PlINUTES  :  constant  :•  $0.0; 

and  then 

del qcj  2.. Ox  HIWUTES  +  ^5.0  x  secoK/DS 


SELECT  STATEHENT 


wai  ten 


3 


for  one  of  several  alternant v 


tasA  protected-variable  ti 
entflj  READ(V  :  2ftt  *LEM); 
gnfr^  WRITE  (E  *.  tn.  UIH); 
SE4> 


tasft  bodtj  PROTECTED- VARIABLE  k* 
VARIABLE  :  CLEM  :•  IN/inAL-VAtUE* 

>ejco 

loop 

select 

accept  RE A0  (  V  :  oijt  EL€H)  dg 

V  :«  VARIABLE; 

end; 

4C 

accept  WRITHE  :  tn_ELEM)  dg 

|  VARIABLE  E; 

end; 

end  seject; 
end  loop: 

end  PROTECTED.  VARIABLE; 
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SELECT  WITH  GUARDS 

tank  Buffering  Cs 

gntg  READ  (V  :  ©at  ELEM); 

enVr^  WRITE  (E  :  in  ELEM); 
end; 

tflsA  boflitj  BUFFERING  iS 

Buffer  .*  arfg^  ( I  . .  N)  a£  CLEM; 


INTEGER 


I  .  .  W  :«  1; 


Count  :  INTEGER  ranee  0  ..  N  =»  0: 
bt£tn 
loop 

select 

wKtn  Count  >  o  =*> 

accept  REA0(v/:  ©j^t  ELEM)  do 

!  V  :«  BUFFER (j); 

indi 

1  :»  (a  Sfld  N)*1  ;  COUNT  :«  COUNT  -  1 

qX 

when  Count  <  w  => 

accept  WAITE (  E  :  in  CLEM)  do 

Buffer  CD  •*  ti 
!  end; 

I  1 :»  ( l  mod  N)+1  ;  COUNT  :«  COUNT  » 1  ; 

!  j  end.  select ; 

end  Buffering; 


PACKAGING  A  TASK 


package  ftEAOER-WRiTeR  Ct_ 

procedure  fteftDC  x  •  oof  CLen); 
|  procedure  vuAite(X:  ij\_  ^^n); 
end; 


package  bod^  READER.WRlTER  Cs 

VARIABLE  :  EL6n  :-  IN iTiftL-V/ftLOE 

task  Control  Ci. 

|  entfcj  start  •,  en*rg  STOP; 
en-l-rg  wane  (x  .•  Co  elEtq 
end. 


I  procedure  R6ftO(X:  out  Elects 

|  oegCn 

j  Control,  start ^  x  :=  variable- 

I  CONTROL.  STOP •, 

I  end; 

!  procedure  write  ( x  .•  in  6L6rQ  is 
|  begin 

CONTROL  .WRITE  (X)j 

end; 

i>nd) 

enforcer; g  a  protocol 


Zl 


CONTROLLING-  READERS  AND  WRITERS 


tftsd  bodtj  CONTROL  us 
1  REA06R.S  :  INTEGER,  t*  O  3 


tn 

loo  I 


select 

accept  START; 

REA06RS  :=  READERS  ♦  1; 


or 


or 


accept  STOP; 

READERS  :«  READERS  -1; 

when  READERS  *  0  => 

accept  WRITE (t  i  iJSEL€M)4ft 


VARIABLE  E; 
ervR; 

'end  select; 
end  loop; 


tr\A 


ZZ 


SELECT  WITH  ELSE  PART 


select 

when  Went 'count  *  0  »> 

accept  START  • 

reaoers  .*»  readers  ♦  ij 

or 

accept  STOP; 

READERS  :»  READERS  -  1; 

or  when  READERS  a  0  -> 

accept  WRITE  (6  :  in^  CLEM)  do 

I  VARIABLE  :•  E; 
end: 

select 

accept  START; 

READERS  READERS  ♦  1  ; 
else 

|  |  4><i5; 

|  end  select; 

qsA  ^oop; 

end  select; 


new  reader  only  accepted  in  the  absence  of  wafer 

after  a  water  accept  any  waiting  readers 


timed  and  Conditional  entry  calls 


timed  entry  cad 
select 

SERVER.  REQUEST  (SOME.  OAT  A)-, 
or 

ddatj  45.0  *  SECONOS  \ 

—  what  to  do  if  service  bets 

—  not"  staffed  withi‘r\  delay  (server 
--  too  busy) 

>r\d  select; 


conditional  entry  call 


select 

SERVER .  REQUEST  (  Son6„  DATA)  j 

<>lse 


—  do  something  else  if  busy 

—  server  cannot  accept'  request 

—  immediately 
end  select; 


Control 


U 


TERMlK/ftTe  ftLTERK/Frrive 


task  fijpe.  Re  source 
|  entr^  seize ; 

|  gftfru  RELEASE; 


cS 


task  bodtj  RESOURCE  c$ 
60SY  :  BOOlEflW  :*  FALSER 

i 

begin 


Coop 

select 

when  not  BUSY  => 

accept  seize  do  Busy  -true*  end; 

|  or 

accept  RElerse  do  busy  :*  false >  end 
or 


when  not  BUSY  =>  t y>'.l :if  t,\ 
endselecfj 
end  loop; 


End; 


11  L 


TftSK  OWSlficmON 


two  extremes 


‘the  server 

Calls  no  other  fas  fr¬ 
its  body  cS  often  of  the  form 
loop 

!  select 


i 


•  o  • 


|  end  select; 
end  loop- 


moed,\K/R  iter 


a. 

the  user 

has  no  entries  Produce  _uk/£ 


intermediate  cases 


Tfl-SK  CLfrSSIFlCftTtOlV 


when  a  server  supports  several  users : 

no  special  requirement  because  the, 
services  do  not  interact 

Look  up  table 

mutual  exclusion  between  sec  vices 
because  of  possible  interference, 
peorecTED.  VfutifteLe 
use  cl  select  statement 

m  ut ua I  exclusion  +  temporary  unav a(  'a t -  '  ry 
because  conditions  cannot  be  met 
Buff  ee  live- 
use  gewa  rds 

mutual  zocUcsion  +  temporary  unavai  labi  !•.  ty 
+  control  of  order  (server  is  u  scheduler) 
CONTROLLER 

use  families  of  entries 


EXCEPTION  HflNDUNJC- 


Conce p-fr  of  an  exception 

u/haf  can  be  tern unated  by  an  exception 
hou  are  exceptions  declared 

u Mat  are  handlers 

hou;  are  exceptions  raised, 
semantics  of-  exceptions  their  u£*S 
scope  and  exceptions 

suppressing  checks 
exceptions  and  tasking 
summary  of  use 


coMceer  of  gw  excepnow 


situations  that  prevent  completion 
of  an  action 

violation  of  a  constraint 

a  matrix  is  singular 

an  exception  names  such  a  situation 
COKisr^ftiKiT.  ERdoR 
SlWfrULftfc 

Raising  an  exception  means  telling 
the  Cnvohzf  o  F  an  cictio^  that 
this  situation  has  occured 


Hanot  ting  an  exception  means  executing 
some  actions  in  response 


EXCEPTION  DECLftRftTlONJS 


SINGULAR  :  gXCgptlQJij 
ERROR  •  txcepHon; 


Some  exceptions  are  predefined  ■. 
declared  Cm  STBK/DARP 

CONSTRAIN  TERROR, 

wuneRic-.  error, 

SELECT,  ERROR, 

STORftGE-ERROR, 

TftStOWO. ERROR  :  exception  -} 

tasks  have  an  attribute  “that  is  an  except 


MULTIPLEXER 'FftILORE. 


EXCEPTION*  HANDLERS 


exception  handlers  may  appear 

at  the  end  of  a.  sequence 

of- statements  enclosed  bj  begin  and  end 


•  begin 

j  sequence  of  statements 


exception 

handlers 


exception 

f  when  CONSTRAINT.  ERROR.  =7 
I  sequence  of  statements 

<  |  when  SINGULAR. 

|  sequence  of  statements 

when  others  =7 

\  sequence  of  statements 


bloc,  subprogram  body^  package  boctg;  task  body 
handlers  of  the  begin -end  parf 


PROPAGATION  OF  ft  PREDEFINED  EXCEPTION 


Consider 

*  ft  (  I  )> 

<1 


u r\  line 
ex  pans  ton 

or 

hardware 

Operation 


if  1  C n  ft'aANG-e  then 


—  Result  obtained.  D 
--  indexing  th  e 
--  array  ft  ujttW  I 


else. 


3 


raise  coin/straint.  error.; 
\  end  Cfj 


X'  :*  result. 


10 


H AWDLIW6  ft*/  EXCEPTION 


GtuetUlL  COSE 

blocks  ^subprogram  J  package 


no  handier  => 

execution  of  unit  i s  abandoned 
same  exception  propagated  in  ca\ler 


o.  handler  exists  fofthe  exception  s=> 
execution  of  the  handle  r  terminate 
the  execution  of  the  unit 


TASKS 


no  implicit  propagation 


7 


handling  aw  exceprioN 


the  handlers  apply  -to  the 
begin -end  part 

hence  an  exception  in  the 

declarative  part-  of  a  blocfc 

subprogram  or  package  Cs 

always  propagated 


U'brarg  uw’fs  abandon 


TetnitfftTtMfr  condition 


Excepfrtort $  are  "Hcminahny*  conditions 


function  DlVioe  (u,V  :  ftem.)  rtfum  ftEftL  ts 


return  U  /  V  ; 
exception 

|  wunEfflC-EftflDft  *">  return  R£ftLfLftft6-£s 

en<&  j 


0 


RETRYING  fW  OPERATION 


"or  L  in  t  ••  10  (pop 
begin 

J  RGftO.TRPE  Cet-OOO; 

— ] — exit ; 

excepKon 

1  uuhtn  T9i?£.£d(lO<l  *> 
j  if  I  =  to  fken 
I  raise  mcfUMCTtoM 

else, 

GftCK5PftC£; 
j  end  if; 

end; 

end  loop; 


EXCEPTIONS  AND  TASKING- 


ASYNCHRONOUS  INTERUE  W  Tl  ONS 

raise  T '  FAILURE  ; 

T  t's  allowed  (as f  vuCshes 

I 

abort  T 

termiAafe  uACondi  ft  orally  { 


if[  either  cast  "partners'  of  T  receCue 
the  exception  T asking,  error 

example  oP  termination  sequence  : 

raise  T*  FAILURE  ; 

^elqtj  20.0  *  SECONDS ; 
abor_t  T; 


frbr\ofM<xl  termination 


EXCEPTIONS  IN  COHft  U Mi  CATIONS 


Catling  an  of  a 

{ermina+ed  task 

the  calling  task  receiues 

the.  Deception  TASKl9J(r.6Z<Zo<Z 


Exceptions  occurring  during  a  rendezvous 

-  during  execution  of  the  accept  statement 

-  the  called  task  dies 

-  the  caller  dies 


ihe  exce pf tow  cRRoff  is  rat'se^  or 
propagated  tuifKi'w  tke  accept  statement 


ERROR  in  P 


error  in  Q 


CALLED  TASK 


*  receives  a  FAILURE 

•  6s  akncmiAlf  y  Urmintfoi 


F/HLufl£ 


is  not  propagated  b  Collin*  tasfi 


7 


neimzvous 


C/ILLEH  DIES 


The  server  completes  the  rendezvous 
The  server  Cs  unaffected 


C 


i 


oo 


SUPPR6S Cl+€OCS 


pragma  suppress  (RAMe.Ctteac); 
pragma  suppress  (iwoetf.CHEeK,  on  «>  table); 


the  pragma  ma^  appear  la  the  cfedaraliVe 
pari  of  a  unit  and  applies  to  Ihe 
end  of  the  unit 


checks  are  nol  required 

buf  they  macj  be  performed 
nei/erlhefcss 

henre  the  corresponding  expressions 
may  s h'H  occur 

they  may  also  be  raised  explicitly 
Of  propagated 


SUMMARY  OF  use 


to  regain  control  when  attempted 
actions  cannot  be  completed 

the  invoker  of  the  action  is 
gci/^n  the  opportunity  to 
perform  appropriate  actions 

a bandon 


retry 

ust  an  alternative  approach 
clean-up  (LftST  wishes) 
continue  if  appropriate. 


IS 


MR.  WILLIAM  CARLSON'S  CLOSING  REMARKS 


A  frequent  complaint  that  we  hear  about  the  software 
business  is  that  we  are  still  a  cottage  industry.  We  are  like 
shoemakers  who  do  not  do  a  very  good  job  providing  their  own 
children  with  shoes.  Most  software  projects  use  relatively  few 
and  primative  tools,  and  in  general  software  tools  are  less 
impressive  than  the  tools  that  people  in  the  computer  aided 
design  business  or  production  control  have. 

The  few  programming  environments  that  provide  a  significant 
number  of  productivity  enhancing  tools  are  built  around  a  single 
common  language. 

I've  heard  various  theories  about  how  to  invest  in  software 
tools  without  having  a  standard  language.  In  fact,  many  of  you 
probably  have  heard  me  talk  about  the  benefits  of  computer 
networking  and  the  possibility  of  having  tools  written  in  several 
different  languages  which  communicate  over  a  network.  I  can  tell 
you  for  myself  that  I  was  doing  that  because  there  wasn't  a 
common  language  and  I  was  looking  for  some  way  to  get  around 
that. 


Having  a  common  language  makes  the  job  of  a  tool  provider 
very  much  easier.  Now  we  have  the  common  language  that  is  going 
to  allow  us  to  invest  effectively  in  software  tools,  standard 
reuseable  packages,  and  reuseable  components.  We  can  begin  to 
capitalize  not  only  the  defense  software  industry,  but  the 
software  industry  as  a  whole. 

I  see  this  Ada  Debut  not  as  the  end  of  a  program  but  really 
as  the  begining.  The  Services  are  investing  significant  dollars 
in  building,  compilers,  and  eventually  complete  families  of 
tools.  We  at  ARPA  are  going  to  be  pushing  very  hard  to  take 
advantage  of  having  this  common  language. 

I  look  forward  to  the  1980  's  and  the  benefits  that  are  going 
to  come  to  us  from  having  a  common  medium  of  expression.  I'm 
sure  you  share  my  enthusiam  for  the  outstanding  job  the  Language 
Design  Team  has  done. 

I  want  to  close  by  thanking  Jean  Ichbiah  for  the  outstanding 
presentation  these  two  days,  and  thank  you  for  coming. 


